home *** CD-ROM | disk | FTP | other *** search
/ Radio Active - The Music Trivia Game Show / Radio Active - The Music Trivia Game Show (1994)(Sanctuary Woods).iso / radactiv / radactiv.dir / 00804_Field_804.txt < prev    next >
Text File  |  1994-11-20  |  4KB  |  63 lines
  1.  
  2. on SaveGame Named
  3.   global NumOfPlayers,UsedCheckCounter,SvGameName
  4.   global UsedQuestions,Player1,Player2,Player3,Player4,SndList,VidList
  5.   global YC1Songs,YC2Songs,YC3Songs,YC4Songs,YC5Songs,YC6Songs
  6.   global YC1Triv,YC2Triv,YC3Triv,YC4Triv,YC5Triv,YC6Triv,QFields
  7.   global GameGLobHolder,AudHelpDone,BonusList,BonusFills,BonusSndNames,PuzNum,PointHLList
  8.   Global UsedQ1E,UsedQ1M,UsedQ1H,UsedQ2E,UsedQ2M,UsedQ2H,UsedQ3E,UsedQ3M,UsedQ3H,UsedQ4E,UsedQ4M,UsedQ4H,UsedQ5E,UsedQ5M,UsedQ5H
  9.   --the first 9 are only used for saved games
  10.   put ("set NumOfPlayers =" & NumOfPlayers) into line 1 of GameGLobHolder
  11.   put ("set Player1=" & Player1) into line 2 of GameGLobHolder
  12.   put ("set Player2=" & Player2) into line 3 of GameGLobHolder
  13.   put ("set Player3=" & Player3) into line 4 of GameGLobHolder
  14.   put ("set Player4=" & Player4) into line 5 of GameGLobHolder
  15.   put ("set UsedCheckCounter=" & quote & UsedCheckCounter & quote) into line 6 of GameGLobHolder
  16.   put ("set UsedQuestions=" & UsedQuestions )  into line 7 of GameGLobHolder
  17.   put ("set PointHLList=" & PointHLList) into line 8 of GameGlobHolder
  18.   --the rest of these go into the settings file
  19.   
  20.   
  21.   if YC1songs >0 then put ("set YC1Songs=" & YC1Songs) into line 9 of GameGLobHolder
  22.   if YC2songs >0  then put ("set YC2Songs=" & YC2Songs) into line 10 of GameGLobHolder
  23.   if YC3songs >0 then put ("set YC3Songs=" & YC3Songs) into line 11 of GameGLobHolder
  24.   if YC4songs >0 then put ("set YC4Songs=" & YC4Songs) into line 12 of GameGLobHolder
  25.   if YC5songs >0 then put ("set YC5Songs=" & YC5Songs) into line 13 of GameGLobHolder
  26.   if YC6songs >0 then put ("set YC6Songs=" & YC6Songs) into line 14 of GameGLobHolder
  27.   if YC1Triv >0 then put ("set YC1Triv=" & YC1Triv) into line 15 of GameGLobHolder
  28.   if YC2Triv >0  then put ("set YC2Triv=" & YC2Triv) into line 16 of GameGLobHolder
  29.   if YC3Triv >0 then put ("set YC3Triv=" & YC3Triv) into line 17 of GameGLobHolder
  30.   if YC4Triv >0 then put ("set YC4Triv=" & YC4Triv) into line 18 of GameGLobHolder
  31.   if YC5Triv >0 then put ("set YC5Triv=" & YC5Triv) into line 19 of GameGLobHolder
  32.   if YC6Triv >0 then put ("set YC6Triv=" & YC6Triv) into line 20 of GameGLobHolder
  33.   if AudHelpDone > 0 then put ("Set AudHelpDone =" & AudHelpDone) into line 21 of GameGlobHolder
  34.   if BonusList > 0 then put ("set BonusList =" & BonusList) into line 22 of GameGLobHolder
  35.   if BonusFills > 0 then  put ("set BonusFills =" & BonusFills) into line 23 of GameGLobHolder
  36.   if BonusSndNames > 0  then put ("set BonusSndNames =" & BonusSndNames) into line 24 of GameGLobHolder
  37.   if PuzNum > 0 then  put ("set PuzNum =" & PuzNum) into line 25 of GameGLobHolder
  38.   if UsedQ1E <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 26 of GameGLobHolder
  39.   if UsedQ1M <> [] then put ("set UsedQ1M=" & UsedQ1M) into line 27 of GameGLobHolder
  40.   if UsedQ1H <> [] then put ("set UsedQ1H=" & UsedQ1H) into line 28 of GameGLobHolder
  41.   if UsedQ2E <> [] then put ("set UsedQ2E=" & UsedQ2E) into line 29 of GameGLobHolder
  42.   if UsedQ2M <> [] then put ("set UsedQ2M=" & UsedQ2M) into line 30 of GameGLobHolder
  43.   if UsedQ2H <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 31 of GameGLobHolder
  44.   if UsedQ3E <> [] then put ("set UsedQ3E=" & UsedQ3E) into line 32 of GameGLobHolder
  45.   if UsedQ3M <> [] then put ("set UsedQ3M=" & UsedQ3M) into line 33 of GameGLobHolder
  46.   if UsedQ3H <> [] then put ("set UsedQ3H=" & UsedQ3H) into line 34 of GameGLobHolder
  47.   if UsedQ4E <> [] then put ("set UsedQ4E=" & UsedQ4E) into line 35 of GameGLobHolder
  48.   if UsedQ4M <> [] then put ("set UsedQ4M=" & UsedQ4M) into line 36 of GameGLobHolder
  49.   if UsedQ4H <> [] then put ("set UsedQ4H=" & UsedQ4H) into line 37 of GameGLobHolder
  50.   if UsedQ5E <> [] then put ("set UsedQ5E=" & UsedQ5E) into line 38 of GameGLobHolder
  51.   if UsedQ5M <> [] then put ("set UsedQ5M=" & UsedQ5M) into line 39 of GameGLobHolder
  52.   if UsedQ5H <> [] then put ("set UsedQ5H=" & UsedQ5H) into line 40 of GameGLobHolder
  53.   put ("set SndList=" & SndList) into line 41 of GameGLobHolder
  54.   put ("set VidList=" & VidList) into line 42 of GameGLobHolder
  55.   put "RestoreQFields" into line 42 of GameGlobHolder
  56.   put empty into field "GlobalsSaved"
  57.   put GameGlobHolder into field "GlobalsSaved"
  58.   put Named
  59.   if Named = "NAME" then OpenTextToWrite SvGameName
  60.   if Named = "NoNAME"  then  OpenTextToWrite "Settings"
  61. end SaveGame 
  62.  
  63.